home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •Interesting Stuff• / The Magic Square ••• / card_4589.txt < prev    next >
Text File  |  1990-10-06  |  3KB  |  147 lines
  1. -- card: 4589 from stack: in
  2. -- bmap block id: 3899
  3. -- flags: 0000
  4. -- background id: 4234
  5. -- name: Secret
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global se,cn
  9.   if se = "OK" then
  10.     lock screen
  11.     hide card field "Hider"
  12.     unlock screen with visual iris open
  13.     put "" into se
  14.     put 1 into cn
  15.   else
  16.     beep
  17.     go to card 1
  18.   end if
  19. end openCard
  20.  
  21. on closeCard
  22.   show card field "Hider"
  23. end closeCard
  24.  
  25.  
  26. -- part 2 (button)
  27. -- low flags: 00
  28. -- high flags: 0000
  29. -- rect: left=17 top=27 right=60 bottom=50
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 29114 / 29114
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Return
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   lock screen
  41.   show card field "Hider"
  42.   go to card 1
  43.   unlock screen with visual dissolve
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 1 (field)
  49. -- low flags: 01
  50. -- high flags: 0001
  51. -- rect: left=0 top=0 right=342 bottom=512
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 3
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Hider
  60.  
  61.  
  62. -- part 4 (field)
  63. -- low flags: 01
  64. -- high flags: 0000
  65. -- rect: left=455 top=191 right=237 bottom=507
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 3
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: 
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   global cn
  77.   if cn is 3 then
  78.     answer "Can‚Äôt you take a hint?" with "I guess not."
  79.   end if
  80.   if cn is 2 then
  81.     answer "Don‚Äôt click there, either." with "Ok, ok!"
  82.     put cn+1 into cn
  83.   end if
  84.   if cn is 1 then
  85.     answer "Don‚Äôt click there." with "Sorry"
  86.     put cn+1 into cn
  87.   end if
  88. end mouseUp
  89.  
  90.  
  91. -- part 5 (field)
  92. -- low flags: 01
  93. -- high flags: 0000
  94. -- rect: left=63 top=30 right=57 bottom=446
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 0
  98. -- font id: 3
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: 
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   global cn
  106.   if cn is 3 then
  107.     answer "Can‚Äôt you take a hint?" with "I guess not."
  108.   end if
  109.   if cn is 2 then
  110.     answer "Don‚Äôt click there, either." with "Ok, ok!"
  111.     put cn+1 into cn
  112.   end if
  113.   if cn is 1 then
  114.     answer "Don‚Äôt click there." with "Sorry"
  115.     put cn+1 into cn
  116.   end if
  117. end mouseUp
  118.  
  119.  
  120. -- part 6 (field)
  121. -- low flags: 01
  122. -- high flags: 0000
  123. -- rect: left=486 top=311 right=332 bottom=507
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 3
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: 
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   global cn
  135.   if cn is 3 then
  136.     answer "Can‚Äôt you take a hint?" with "I guess not."
  137.   end if
  138.   if cn is 2 then
  139.     answer "Don‚Äôt click there, either." with "Ok, ok!"
  140.     put cn+1 into cn
  141.   end if
  142.   if cn is 1 then
  143.     answer "Don‚Äôt click there." with "Sorry"
  144.     put cn+1 into cn
  145.   end if
  146. end mouseUp
  147.